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// Obtain all information from the Extranet Switch 
// The result will then be "imported" into the OCM 
// product. 

// The "back" statements are used to symbolize the 

// end of a section, it also makes it easier to import 

Error=Error 

// Obtain info ExtranetSwitch Basic Tab 

"ExtranetDevice . IP_ADDR. IP_ADDR n 

call omget using { "dns . systemipaddress" } 

»\nExtranetDevice .HOSTNAME. HOSTNAME » 

call omget using { "dns . systemname" } 

"\nExtranetDevice . SWITCH_TYPE . SWITCH_TYPE " 

call omget using { "flash .Mode iNumber" } 

" \nExtranet Device . CUR_VERS ION . CUR_VERSION " 

call omget using { "DirRestore . CurVersion" } 

" \nExtranetDevice . DOMAI N_NAME . DOMAI N_NAME " 

call omget using { "dns .domainname" } 

"\nExtranetSwitch. PRIMARY_SERVER. PRIMARY_SERVER " 

call omget using { "dns . primarydns server " } 

" \nExtrane t Switch . SECONDARY_SERVER . SECOND ARY_SERVER " 

call omget using { "dns . secondarydns server " } 

" \nExtranetSwi tch . TERTI ARY_S ERVER . TERTIARY_SERVER " 

call omget using { "dns . tertiarydns server n } 

// Obtain info for Shutdown Tab 

" \nExt ranet Switch . DISABLE_NEW_LOGINS . DISABLE_NEW_LOGINS " 
call omget using { "Security . NewLoginsEnabled" } 

"\nExtranetSwitch. DISABLE_RESTART_LOGINS . DISABLE_RESTART_LOGINS » 

call omget using { "Shutdown. DisableLoginsOnRestart " } 

" \nExt ranet Switch . SYSTEM_SHUTDOWN . CHOICEBOX " 

call omget using { "Shutdown. Mode" } 

" \nExt ranet Switch . SYSTEM_SHUTDOWN . TEXTBOX " 

call omget using { "Shutdown. EventTimeDelay" } 

"\nExt ranet Switch. POST_SHUTDOWN. POST_SHUTD0WN " 

call omget using { "Shutdown. Event Act ion" } 

" \nExtranetSwitch . REBOOT_DRIVE . REBOOT_DRIVE " 

call omget using { "DiskRdn.BootDevice" } 

// lets get some capacity stuff 
"\nExtranetSwitch.TUN_USERS.NUM_USERS " 

call omget using { "dbgroups .group [ROOT: : SUBTREE] . persons .numentries" } 
" \nExtranetSwitch . TUN_USERS . MAX_TUNNELS " 
call omget using { "Flash. maximumusers" } 

// Obtain info for ExtranetSwitch Admin tab 
" \nExtranetSwitch . USER_ID . USER_ID " 
call omget using { "flash. adminuid" } 
"\nExt ranet Switch . PASSWORD . PASSWORD " 
call omget using { "flash. adminpas sword" } 
"\nExt ranet Switch. IDLE_TIMEOUT . IDLE_TIMEOUT " 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [GENERAL, - 
] . AdminldleTimeout" } 

// Obtain info for ExtranetSwitch Service Tab 
"\nExtranetSwitch . IPSEC . PUBLIC " 

call omget using { "security .untrustedipsecenabled" } 



"XnExtranetSwitch. IPSEC. PRIVATE " 

call omget using{ "security . trustedipsecenabled" } 

11 \nExtranet Switch . PPTP . PUBLIC " 

call omget us ing{ "security .untrustedpptpenabled 11 } 

" \nExtranetSwitch . PPTP . PRIVATE " 

call omget using{ "security . trustedpptpenabled" } 

"XnExtranetSwitch. L2TP_L2F. PUBLIC " 

call omget using{ "security .untrustedl2f enabled" } 

"XnExtranetSwitch . L2TP_L2F . PRIVATE " 

call omget using{ "security . trustedl2f enabled" } 

"XnExtranetSwitch . L2TP_L2F . PUBLIC " 

call omget using{ "security .untrustedl2tpenabled" } 

"XnExtranetSwitch . L2TP_L2F . PRIVATE " 

call omget using { "security . trusted!2tpenabled" } 

" XnExtranetSwitch . HTTP_PR I VATE . HTTP_PRIVATE " 

call omget using { "security . trustedhttpenabled" } 

"XnExtranetSwitch . SNMP_PRIVATE . SNMP_PRIVATE " 

call omget using { "security .trus tedsnmpenabled" ) 

" XnExtranetSwitch . FTPJPRIVATE . FTP_PRIVATE " 

call omget using{ "security .trustedf tpenabled" } 

" XnExtranetSwitch . TELNET_PRIVATE . TELNET_PRIVATE " 

call omget using{ "security . trustedtelnetenabled" ) 

" XnExtranetSwitch . ALL0W_T2T . ALL0W_T2T " 

call omget using { "security . allowtunneltotunnel" } 

" XnExtranetSwitch . ALLO W_EUTB 0 . ALLOW_EUTBO " 

call OmGet using { "Security . AllowClientToBranch" } 

"XnExtranetSwitch . ALLOW_BOTBO . ALLOW_BOTBO " 

call OmGet using { "Security . AllowBranchToB ranch" } 



// Obtain info ExtranetSwitch AutoBackup Tab 

"XnExtranetSwitch . ABUG_R0W1 . ABUG_ENABLED " 

call omget using { "dirbackup .primaryzenabled" } 

"XnExtranetSwitch . ABUG_R0W1 . ABUG_HOST " 

call omget using { "dirbackup .primaryhost" } 

"XnExtranetSwitch, ABUG_R0W1 . ABUG_PATH " 

call omget using { "dirbackup .primarypath" } 

"XnExtranetSwitch . ABUG_R0W1 , ABUG_INTERVAL " 

pint=call omgetnum using { "dirbackup .primaryinterval" } 

pint=pint/60 

pint 

"XnExtranetSwitch.. ABUG_R0W1 . ABUG_US E R I D " 

call omget using { "dirbackup .primaryusername" } 

"\nExtranetSwitch.ABUG_ROWl . ABUG_PASSW0RD " 

call omget using { "dirbackup .primarypas sword " } 

" XnExtranetSwitch .ABUG_R0W2 . ABUG_ENABLED " 

call omget using { "dirbackup . secondaryzenabled" } 

"XnExtranetSwitch. ABUG_R0W2 . ABUG_HOST " 

call omget using { "dirbackup . secondaryhost" } 

"XnExtranetSwitch. ABUG_R0W2 . ABUG_PATH " 

call omget using { "dirbackup . secondarypath" } 

" XnExtranetSwitch .ABUG_R0W2 . ABUG_INTERVAL " 

sint=call omgetnum using { "dirbackup . secondary interval" ) 

sint=sint/60 

sint 

"XnExtranetSwitch. ABUG_R0W2 . ABUG_USERID " 

call omget using { "dirbackup . secondaryusername" } 



" \nExtrane t Switch . ABUG_R0W2 . ABUG_PAS SWORD " 

call omget using { "dirbackup . secondarypas sword " } 

" \nExtranetSwitch . ABUG_R0W3 . ABUG_ENABLED " 

call omget using { "dirbackup . tertiaryzenabled" } 

"\nExtranetSwitch. ABUG_R0W3 . ABUG_HOST " 

call omget using { "dirbackup . tertiaryhost" } 

"\nExtranet Switch. ABUG_R0W3 . ABUG_PATH " 

call omget using { "dirbackup . tertiarypath" } 

"\nExtranet Switch. ABUG_R0W3 . ABUG_INTERVAL '* 

tint=call omgetnum using { "dirbackup . tertiaryinterval" } 

tint=tint/60 

tint 

"\nExtranetSwitch.ABUG_R0W3 . ABUG_USERID » 
call omget using { "dirbackup. tertiaryusername" } 
1, \nExtranetSwitch.ABUG_R0W3 .ABUG_PAS SWORD " 
call omget using { "dirbackup . tertiarypassword" } 

// obtain the boot configuration from switch 
entry = call omfirst using { "namedconf ig" ) 
cond = (entry != " ") 

" \nExtranet Switch . BOOT_S ELECT . BOOT_S ELECT " 
while cond using 

{ 

call omget using { "namedconf ig [ "entry" J .desc" } 
n ii 

entry = call omnext using { "namedconf ig ["entry" ]" } 
cond = (entry != "") 

} 

// obtain performance data 

fkey = call omfirst using { "DC . SummaryHi story" } 

cond = (fkey != "") 
while cond using 

( 

svDateString=call omget using { "DC . SummaryHi story ["f key" ] .Timestamp" } 

svTotalKey=svDateString+" : : TOTAL" 

" \nExtranet Performance . TRENDING " 

svDateString 
ii n 

call omget using { "DC . SummaryHi story ["svTotalKey"] . TotalSessions " } 
ii H 

call omget using { "DC. SummaryHi story ["svTotalKey"] , AdminSessions " } 
ii H 

call omget using { "DC . SummaryHi story ["svTotalKey" ]♦ PPTPSessions " } 
n H 

call omget using { "DC. SummaryHi s tory [ "svTotalKey" ]. IPSecSessions" } 
ii n 

call omget using { "DC . SummaryHi story [ "svTotalKey" ] . L2FSessions" } 
11 it 

call omget using { "DC. SummaryHi s tory [ ' 'svTotalKey" ] . L2TPSessions" } 
M \nback» 



fkey = call omnext us ing{ "DC . SummaryHi story [ "fkey"] " } 
cond = (fkey != "") 

) 



// obtain the SNMP trap receivers 
Error = 
entry = 

entry = call omfirst using { " traphost " } 

if ( ( entry == "")&& ( Error == "Failure") ) then using 
{ 

Error = " " 

if ( entry != "" ) then using 
{ 

cond = (entry != "") 
while cond using 
( 

" \nBayP_ExtranetSNMP . TRAP_TABLE " 
""entry" " 

it n 

call omget using { "traphost ["entry"] .enabled" } 
it tt 

call omget using { "traphost [ "entry"] . community" } 
"\nback" 

entry - call omnext using { "traphost ["entry" ]" } 
cond = (entry != "") 

} 

} 

// obtain the various snmp scripts 
Error = " " 

f ilename=call omfirst using {"script"} 

if (( filename == " " ) && (Error == "Failure" ) ) then using 

{ 

Error = " " 

} 

cond = (filename != "") 

while cond using 

{ 

" \nBayP_ExtranetSNMP . SCR I PT_TABLE » 

//call omget using { "script [" filename"] .description" } 
file = call omget using { "script [ "filename" ] .description" } 
" ' " f i le " 1 " 

call omget using { "script [ "filename"] . interval" } 
it ii 

call omget using { "script ["filename"] .repeatcount" } 

" "filename"" 

"\nback" 

filename = call omnext using { "script ["filename" ]" } 
cond = ( filename !» "" ) 

} 

"\nback" 

// obtain the IPX parameters 

" \ nExt rane 1 1 PX . PUB_NET_ADDR . PUB_NET_ADDR " 

call omget using { "ipxintf omcls . ipxpub Headdress" } 

" \ nExt rane t IPX . NEAR_SERVER . NEAR_S ERVER " 



nearserv = call omget using { "ipxintfomcls .def aultnearestserver" } 
" * "nearserv" ■ " 

"\nExtranetIPX.MAX_SAP.MAX_SAP " 

call omget using { "ipxintfomcls . sapentries" } 

// obtain the IPX interfaces 

ifacekey = call omfirst using { "IpxIntfOmCls . IpxPrivateLANS" } 
cond = (ifacekey != "") 
while cond using 

{ 

//get values for row 
"\nExtranetIPX.Interface_Table " 
ifacekey 
it ii 

call omget using { "IpxIntfOmCls . IpxPrivateLANS ["ifacekey" ] .Slot" } 
n n 

call omget using { "IpxIntfOmCls . IpxPrivateLANS [ "if acekey" ]. Port" } 
n it 

call omget using { "IpxIntfOmCls . IpxPrivateLANS ["if acekey"] . IpxAddress " } " " 

call omget using { "IpxIntfOmCls . IpxPrivateLANS ["if acekey"] .Encap" } 
it n 

call omget using { "IpxIntfOmCls . IpxPrivateLANS ["if acekey"] . Enable" } 
"\nback" 

ifacekey = call omnext using 

{ "ipxintfomcls . ipxprivatelans ["ifacekey"] " } 
cond = (ifacekey != "" ) 

} 

"\nback" 



// obtain RADIUS authentication 
Error= " " 

" \nBayP_RadAuth_Server . ENAB LE_RAD I US . ENAB LE_RAD I US " 
call omget using { "DbRadiusAuthServers . Enabled" } 

svAuthKey = call omfirst using { "DbRadiusAuthServers . RadiusAuthServer" } 

//if no key, then need to create a server entry in the database 
if (svAuthKey " " ) then using 

{ 

Error = "" 

BaseDn = call omget using { "LdapConf ig . BaseName" } 

svAuthKey="cn=radiusl, ou=Radius, ou=AuthenticationServers , "+BaseDn 

call omcreate using { "DbRadiusAuthServers . RadiusAuthServer ["svAuthKey" ]" } 

if (svAuthKey != " " ) then using 

{ 

//do gets from database 
" \nBayP_RadAuth_Server . DELIMITER . REMOVE_SUFFIX " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . StripUidSuf f ix" } 
" \nBayP_RadAuth_Server . DELIMITER . DELIMITER " 
raddel=call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] .uidSuf f ixDelimeter" } 
" '"raddel"' " 

" \nBayP_RadAuth_Server . ENABLE_AXENT . ENABLE_AXENT " 



call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer ["svAuthKey"] . AuthMethodAXENT" } 
" \nBayP_RadAuth_Server . ENABLE_SECURID . ENABLE_SECURID " 
call omget using 

{ "DbRadiusAuthServers - RadiusAuthServer [ 11 svAuthKey" ] . AuthMethodSECURID" } 
" \nBayP_RadAuth_Server . ENABLE_CHAP . ENAB L E_CHAP n 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer [ " svAuthKey" ] . AuthMethodCHAP" } 
" \nBayP_RadAuth_Server . ENABLE_MS CHAP . ENABLE_MSCHAP " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . AuthMethodMSCHAP" } 
" \nBayP_RadAuth_Server . ENABLE_PAP . ENABLE_PAP " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . AuthMethodPAP" } 
//host enable 

" \nBayP_RadAuth_Server . ENABLE_PRIMARY . ENABLE_PRIMARY " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . PrimaryHost Enabled" } 
" \nBayP_RadAuth_Server . ENABLE_ALT1 . ENAB L E_ALT 1 « 
call omget using 

( "DbRadiusAuthServers . RadiusAuthServer [ " svAuthKey" ] . AlternatelHostEnabled " 
" \nBayP_RadAuth_Server . ENABLE_ALT2 . ENAB LE_ALT 2 " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . Alternate2HostEnabled" } 
//host names 

" \nBayP_RadAuth_Server . PRIM_HOSTNAME . PRIM_HOSTNAME " 
call omget using 

( "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . PrimaryHost" } 
"\nBayP_RadAuth_Server . ALT1_H0STNAME . ALT1_H0STNAME " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . AltematelHost" } 
"\nBayP_RadAuth_Server . ALT2_H0STNAME . ALT2_H0STNAME " 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer ["svAuthKey" ] . Alternate2Host" } 
//ports 

" \nBayP_RadAuth_Server . PRIM_PORT . PRIM_PORT " 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer [ "svAuthKey " ] 
" \nBayP_RadAuth_Server . ALT1_P0RT . ALT1_P0RT " 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer [ "svAuthKey"] 
" \nBayP_RadAuth_Server . ALT2_P0RT . ALT2_P0RT » 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer [ "svAuthKey" ] 
//passwords 

" \nBayP_RadAuth_Server . PRIM_SECRET . PRIM_SECRET " 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer ["svAuthKey" ] . PrimaryHostPassword" } 
" \nBayP_RadAuth_Server . ALT1_SECRET , ALT1_SECRET " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey") . AlternatelHostPassword" 
" \ nBayP_RadAuth_Server . ALT2_SECRET . ALT2_SECRET " 



. PrimaryHostPort " } 
.AlternatelHostPort" } 
. Alternate2HostPort" } 



call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . Alternate2Host Password" } 

} 



// obtain RADIUS accounting 

" \nBayP_RadAcct_Server . ENABLE_INT_RADIUS . ENABLE_INT_RADIUS n 
call omget using { "DbRadiusAcctServers . Enabled" } 

accsrvkey = call omfirst using { "DbRadiusAcctServers . RadiusAcct Server" } 
if { ( accsrvkey == " 11 ) && { Error ~~ "Failure" ) ) then using 

{ 

Error = 

) 

//if no key, then need to create entry 
if (accsrvkey == "") then using 

{ 

BaseDn » call omget using { "LdapConf ig .BaseName" } 
if ( Error == "" ) then using 

{ 

accsrvkey="cn=accl, ou=radius, ou=accounting servers, "+BaseDn 
call omcreate using 
{ "DbRadiusAcctServers . RadiusAcctServer [ "accsrvkey" ] " } 

if { Error == "" ) then using 

{ 

accsrvkey=call omfirst using 
{ "DbRadiusAcctServers . RadiusAcctServer" } 

} 

} 

) 

//host enable 

if ( accsrvkey ! = " " ) then using 
( 

"\nBayP_RadAcct_Server . ENABLE_EXT_RADIUS . ENABLE_EXT_RADIUS " 
call omget using 

{ "DbRadiusAcctServers . RadiusAcctServer [ "accsrvkey" ] .HostEnabled" } 

//host names 
"\nBayP_RadAcct_Server . HOSTNAME . HOSTNAME " 

call omget using { "DbRadiusAcctServers . RadiusAcctServer ["accsrvkey"] .Host " } 
//ports 

"\nBayP_RadAcct_Server - PORT. PORT " 
call omget using 
{ "DbRadiusAcctServers . RadiusAcctServer [ "accsrvkey" ] . HostPort " } 
"\nBayP_RadAcct_Server. SECRET. SECRET " 
call omGet using 

{ "DbRadiusAcctServers .RadiusAcctServer ["accsrvkey" ] .HostPassword" } 
} 

" \nBayP_RadAcct_Server . UPDATE_INTRVL . UPDATE_INTRVL " 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [GENERAL, - 

] .AcctUpdateFreq"} 



// obtain info on which LDAP we are using 



" \nBayP_LDAP . INTERNAL_EXTERNAL " 

call omget using { "LdapConf ig . useremote" } 

// get info for internal LDAP 

" \nBayP_IntLDAP_Server . IS_RUNNING " 

call omget using { "Slapd. IsRunning" } 

keyLocalAuthServer = call omfirst using { "DbLocalAuthServers . LocalAuthServer" } 
" \nBayP_IntLDAP_Server . SUFFIX_ROW . REMOVE_FROM_UID " 
ildapui=call omget using 

{ "DbLocalAuthServers . LocalAuthServer [ "keyLocalAuthServer" ] . stripUidSuf f ix" } 
if {ildapui == "" ) then using 

{ 

"FALSE" 

} 

else using 
{ 

" 1 "ildapui" ' " 

} 

" \nBayP_IntLDAP_Server . SUFFIX_ROW . DELIMITER " 
ildapdel=call omget using 

{ "DbLocalAuthServers . LocalAuthServer ["keyLocalAuthServer" ] .UidSuf f ixDelimeter" } 
" ' "ildapdel" ■ " 

// obtain info for external LDAP 

" \nBayP_ExtLDAP_Server . SUFFIX_ROW . REMOVE_FROM_UID " 
eldapui=call omget using 

{ "DbLocalAuthServers . LocalAuthServer [ "keyLocalAuthServer"] . stripUidSuf f ix" } 
if (eldapui == "") then using 

{ 

"FALSE" 

} 

else using 
{ 

" ' "eldapui" 1 " 

} 

" \nBayP_ExtLDAP_Server . SUFFIX_ROW . DELIMITER " 
ldapdel=call omget using 

{ "DbLocalAuthServers. LocalAuthServer ["keyLocalAuthServer") .UidSuf f ixDelimeter" } 
" '"ldapdel" 1 » 

" \nBayP_ExtLDAP_Server . BASEJDN . BASE_DN » 

basedn = call omget using { "ldapconf ig. remotebasename" } 

" 1 "basedn" 1 " 

" \nBayP_ExtLDAP_Server . MASTER . ELDAP_HOSTNAME « 
call omget using { "ldapprof ileserver [0] .host" } 
" \nBayP_ExtLDAP_Server . MASTER . PORT " 
call omget using {" ldapprof ileserver [0] .usessl " } 

ir rt 

call omget using { "ldapprof ileserver [0] .port " } 
■i H 

call omget using { "ldapprof ileserver [0] . sslport" } 
" \nBayP_ExtLDAP_Server . MASTER . BIND_DN " 

masterdn = call omget using { "ldapprof ileserver [0] .bindname" } 
masterdn" ' " 

" \nBayP_ExtLDAP_Server . MASTER . BIND_PASSWORD " 



call omget using { "ldapprof ileserver [0] .bindpas sword" } 

" \nBayP_ExtLDAP_Server . SLAVE1 . E LD AP_HO S TNAME " 

call omget using { "ldapprof ileserver [1] .host " } 

" \nBayP_ExtLDAP_Server . SLAVE1 . PORT " 

call omget using {" ldapprof ileserver [1] . usessl " } 

call omget using { "ldapprof ileserver [1] .port " } 
it ti 

call omget using { "ldapprof ileserver [1] . sslport" } 
" \nBayP_ExtLDAP_Server . SLAVE1 . BIND_DN " 

slaveldn = call omget using { "ldapprof ileserver [1] .bindname" } 
" ' "slaveldn" ' " 

" \nBayP_ExtLDAP_Server . SLAVE1 . BIND_PASSWORD " 

call omget using { "ldapprof ileserver [1] .bindpassword" } 

" \nBayP_ExtLDAP_Server . SLAVE2 . ELDAP_HOSTNAME " 

call omget using { "ldapprof ileserver [2] . host " } 

" \nBayP_ExtLDAP_Server . SLAVE2 . PORT " 

call omget using { "ldapprof ileserver [2] .usessl" } 
ii ii 

call omget using { "ldapprof ileserver [21 .port " } 

ti II 

call omget using { "ldapprof ileserver [2] . sslport" } 
" \nBayP_ExtLDAP_Server . SLAVE2 . BIND_DN " 

slave2dn = call omget using { "ldapprof ileserver [2] .bindname" } 
" ' n slave2dn" ' " 

" \nBayP_ExtLDAP_Server . SLAVE 2 . BIND_PASSWORD " 

call omget using { "ldapprof ileserver [2] .bindpassword" } 

cipherkey=call omfirst using { "SslConf ig . CipherSpec" } 
ccond - (cipherkey != NULL) 
while ccond using 
{ 

" \nBayP_ExtLDAP_Server . Encrypt ion_Table " 
//get values for row 

call omget using { "SslConf ig. CipherSpec ["cipherkey"] .Enabled" } 
H ii 

name = call omget using { "SslConf ig. CipherSpec ["cipherkey"] .Name" } 

" ' "name 

"\nback" 

cipherkey - call omnext us ing{ "SslConf ig. CipherSpec ["cipherkey"] " } 
ccond = (cipherkey != "" ) 

} 

"\nback" 

// Obtain User IP address pool information 

*• \nBayP_UserIP_Server . ADDR_ACQUIS . ADDR_ACQUIS " 

call omget using { "AddressAcquisition. AcquisitionType" } 

" \nBayP_UserIP_Server . CACHE .SIZE " 

call omget using { "AddressAcquisition. DHCPCacheSize" ) 
" \nBayP_UserIP_Server . RELEASE . IMMEDIATE " 

call omget using { "AddressAcquisition. DHCPReleaselmmediately" } 

" \nBayP_UserIP_Server . DHCP . TYPE " 

call omget using {" AddressAcquisition. DHCPType" } 

" \nBayP_UserIP_Server . PRIMARY_SERVER " 

call omget using{ "DhcpServer [0] . Server Address" } 



"\nBayP_UserIP_Server . SECONDARY_SERVER " 

call omget using { "DhcpServer [1] . Server Address " } 

"\nBayP_UserIP_Server . TERTIRARY_SERVER " 

call omget us ing( "DhcpServer [2] .Server Address" } 

AddrKey = call omfirst using { " IpAddrPool " } 

ccond = (AddrKey ! = " " ) 

while ccond using 

{ 

" \ nB ay P_U s e r I P_S erver. ADDR_TAB LE " 

call omget using ( " IpAddrPool ["AddrKey" ]. startaddr" } 

call omget using { "IpAddrPool ("AddrKey" ] .endaddr" } 
H n 

call omget using {"IpAddrPool ("AddrKey"] . numberof addrs 11 } 

AddrKey 
"\nback" 

AddrKey = call omnext using { "IpAddrPool [ "AddrKey" J" } 
ccond = (AddrKey != "") 

} 

"\nback" 

// obtain ethernet interface information 



Entry = call omfirst using {"Interface"} 

if ( ( Entry == "" ) ( Error == "Failure" ) ) then using 
{ 

Error = " " 
} 

CondEntry = (Entry ! = " » ) 
while CondEntry using 

( 

lookType = call omget using { "Interface ["Entry"] .Type" } 

// only do for lan interfaces 
if (lookType == 2) then using 

{ 

"\nExtranetInterf ace . LAN_Interf ace " 

call omget using {" Interface [ "Entry" ]. slot" } 
ii ii 

call omget using { "Interface ["Entry" ]. Interface" } 
ii H 

call omget using { "Interface ["Entry" ]. DefaultGateway" } 
ii M 

lookLoc - call omget using {" Interface [ "Entry" ] .DevLoc" } 
" " lookLoc" " 

call omget using { "Interface ["Entry"] . Public" } 
ii ii 

call omget using { " Interface [ "Entry" ], Enabled" } 
ii n 

desc = call omget using { "Interface ["Entry"] .Desc" } 
if ( desc != " " ) then using 

{ 

» ' "desc" • " 

} 



else using 

{ 
} 

iplntf - call omfirst using {"Iplntf" } 

if ( ( iplntf == ,,n ) && { Error "Failure" ) ) then using 
{ 

Error = " " 

} 

Condiplntf = (iplntf != " ") 
while Condiplntf using 

{ 

ipDevLoc = call omget using { "iplntf [" iplntf "J .DevLoc" } 
if ( ipDevLoc == lookLoc ) then using 

{ 

isSystem = call omget using { "iplntf [ "iplntf "]. IsSystemlpAddr" } 

// only do for the non-system interfaces 
if ( isSystem == "NO" ) then using 

{ 

// Keep count of the number of addresses for this card 

ii n 

call omget using {" iplntf [ "iplntf "]. IpAddr" } 

ii n 

call omget using ( "Iplntf ["iplntf "] .Subnet") 



} 

} 

iplntf = call omnext using { "Iplntf ["iplntf "]" } 
Condiplntf = (iplntf != "") 

> 
} 

Entry = call omnext using { " Interface ["Entry" ] " } 
CondEntry = (Entry != "" ) 

) 

// obtain WAN information 

Entry = call omfirst using {"Interface") 

if ( ( Entry == "" ) && ( Error == "Failure" ) ) then using 
( 

Error = "" 
) 

CondEntry = (Entry != ■•") 
while CondEntry using 

{ 

lookType = call omget using { "Interface [ "Entry" ] .Type" } 
lookDESC = call omget using {" Interface [ "Entry" ] .Hardware" } 

// only do for wan interfaces 
if (lookType == 1) then using 

{ 



if (lookDESC != "empty") then using 

{ 

" \nExtranet Interface . WAN_Interf ace M 

call omget using { "Interface [ "Entry" ]. slot" } 
ii ii 

call omget using { "Interface [ "Entry"] . Interface" } 

lookLoc = call omget using { "Interface [ "Entry" ] .DevLoc" } 
" "lookLoc" 11 

call omget using { "Interface ["Entry"] .Enabled" } 

desc = call omget using { "Ppplntf [" lookLoc" J. description" } 
if ( desc != ) then using 

{ 

ii i ii Q^gsc " ■ n 

} 

else using 

{ 

n i i ii 

} 

ii ii 

locip=call omget using { "Ppplntf [ "lookLoc "]. localipaddress " } 
" ' " locip" ' " 

ipcp=call omget using { "Ppplntf ["lookLoc"] . ipcpacceptremote" } 
if (ipcp == "") then using 

{ 

"FALSE " 

) 

else using 

{ 

" 1 "ipcp" ' " 

peerip=call omget using { "Ppplntf ["lookLoc"] .peeripaddress" } 
" ' "peerip" ' " 

nopap=call omget using { "Ppplntf ["lookLoc"] .NoPapNeg" } 
if (nopap == "") then using 

{ 

"FALSE " 

} 

else using 

{ 

" ' "nopap" 1 " 

nochap=call omget using {"Ppplntf ["lookLoc"] .NoChapNeg" ) 
if (nochap == "") then using 

{ 

"FALSE " 

} 

else using 

{ 

nochap"' " 

} 

name = call omget using { "Ppplntf ["lookLoc"] . Local PapName" } 
" 1 "name" ■ " 

passwd = call omget using { "Ppplntf ( "lookLoc"] .LocalPapPasswd" } 
" ' "passwd" ' " 



noacc=call omget using { "Ppplntf ["lookLoc"] .NoAccNeg" } 
if (noacc == "") then using 

"FALSE " 

else using 

" * "noacc 

nopc=call omget using { "Ppplntf ("lookLoc"] .NoPCNeg" } 
if {nope == " " ) then using 

11 FALSE " 

else using 

" ' "nope" ' " 

lcpfail=call omget using { "Ppplntf [ "lookLoc" ]. LCPEchoFailure 
" 1 "lcpfail" ' " 

lcpint=call omget using { "Ppplntf [ "lookLoc" ]. LCPEchoInterval 
11 '"lepint"' " 

novj=call omget using { "Ppplntf ["lookLoc" ] .Nov JNeg" } 
if (novj == "") then using 

{ 

"FALSE " 

} 

else using 

{ 

» i »novj " ' " 

novjc=call omget using { "Ppplntf ["lookLoc"] .No VJCCompNeg" } 
if (novjc =- "") then using 

{ 

" FALSE " 

} 

else using 

{ 

"'"novjc"' " 

vjslots=call omget using { "Ppplntf ["lookLoc"] . VJMaxSlots" } 
» ,n vj slots"' " 

} 

Entry = call omnext using { "Interface ["Entry" 3 " } 
CondEntry = (Entry != "" ) 

} 

// obtain PPTP information 
"\nBayP_Tunnel.PPTP " 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [PPTP, - 

] . AuthServerRef 2Type" } 
ii ii 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [PPTP, - 
] . AuthServerRef 3 Type" } 

" \nBayP_Tunne 1 . PPTP_MSCHAP_ROW . NOT_ENCRYPT " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [PPTP, - 
] .Def ault Encrypt ionNone" } 



" \nBayP_Tunnel . PPTP_MSCHAP_ROW . MSCHAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [PPTP, - 
] .DefaultEncryptionRC4_128" } 
"\nBayP_Tunnel . PPTP_MSCHAP_ROW. RC44 0 " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [PPTP, - 

] . Default Encrypt ionRC4_4 0" } 

" \nBayP_Tunnel . PPTP_CHAP . PPTP_CHAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [PPTP, - 

] .DefaultAuthMethodChap"} 

" \nBayP_Tunnel . PPTP_PAP . PPTP_PAP " 

call omget using { "Dbgroups . Group [root] . Accounts .Account [PPTP, - 
] .DefaultAuthMethodPAP" } 

// obtain L2TP information 
// " \nBayP_Tunnel . L2TP " 

//call omget using { "DbGroups .Group [ROOT] .Accounts .Account [L2TP, - 
] . AuthServerRef 2Type" } 
//" " 

//call omget using { "DbGroups .Group [ROOT] .Accounts .Account [L2TP, - 
] .AuthServerRef 3Type" } 

" \nBayP_Tunnel . L2TP_MSCHAP_R0W . NOT_ENCRYPT " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2TP, - 

] .Def aultEncryptionNone" } 

" \nBayP_Tunnel . L2TP_MSCHAP_R0W . MSCHAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2TP, - 
] .DefaultEncryptionRC4_128" } 
"\nBayP_Tunnel . L2TP_MSCHAP_R0W. RC440 " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2TP, - 

] . DefaultEncryptionRC4_4 0" } 

" \nBayP_Tunnel . L2TP_CHAP . L2TP_CHAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2TP, - 

] .DefaultAuthMethodChap"} 

" \nBayP_Tunnel . L2TP_PAP . L2TP_PAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2TP, - 

] .DefaultAuthMethodPAP"} 

//"\nback" 

// obtain L2F 

"\nBayP_Tunnel . L2F " 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [L2F, - 
] .AuthServerRef 2 Type"} " " 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [L2F, - 
] .AuthServerRef 3 Type" } 

" \nBayP_Tunnel . CHAP_ENABLED . CHAP_ENABLED " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2F, - 
] .DefaultAuthMethodChap"} 

" \nBayP_Tunnel . PAP_ENABLED . PAP_ENABLED " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2F, - 

] .DefaultAuthMethodPap" } 

"\nback" 

// obtain IPSec information 
reallPsecKey - " " 

groupKey = call omfirst using { "DbGroups . Group" ) 

if ( ( groupKey =- " " ) && ( Error — "Failure" ) ) then using 



// can safely ignore this error 

Error = 

) 

if ( groupKey != " " ) then using 

( 

accountKey = call omfirst using 
{ "DbGroups .Group ["groupKey" ] .Accounts .Account" } 

if ( ( accountKey == "" ) && ( Error == "Failure" ) ) then using 

{ 

// can safely ignore this error 
Error = " " 

i 

accountCondition = (accountKey != ) && { reallPsecKey == ) 
while accountCondition using 

{ 

accountType = call omget using 
{ "DbGroups .Group ["groupKey"] .Accounts -Account ["accountKey"] .TunnelType" } 
if { accountType == "IPsec" ) then using 

{ 

reallPsecKey = accountKey 

} 

accountKey = call omnext using 
{ "DbGroups .Group ["groupKey"] .Accounts .Account ["accountKey"] " } 

accountCondition = ((accountKey != "" ) && ( reallPsecKey == "" )) 
} // while there is a subaccount 
} // End - groupkey != NULL 

" \nBayP_Tunnels . IPSEC " 
refl=call omget using 

{ "DbGroups . Group [ROOT] . Accounts . Account [ "reallPsecKey" ] . AuthServerRef 2Type" } 
11 1 11 ]_ 

" \nBayP_Tunnels IP . AUTH_USER . AUTH_USER " 
call omget using 

( "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultAuthMethodSHARED_ 
SECRET" } 

" \ nBay P_Tunne 1 s I P . AUTHORS A . AUTH_RS A " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultAuthMethodCERTIFI 
CATE_RSA" } 

" \ nBay PJTunne 1 s I P . RADAUTH_AX ENT . RAD AUTH_AX ENT " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account [ "reallPsecKey" ] .Def aultAuthMethodAXENT" 
> 

"\nBayP_TunnelsIP . RAD AUTH_S E CUR I T Y . RADAUTH_S ECURI T Y " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultAuthMethodSECURID 
" } 

" \nBayP_Tunne 1 s IP . RADAUTH_GROUP . RADAUTH_GROUP " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultAuthMethodPAP" } 
" \nBay P_Tunne 1 s I P . ENCRYP_TRI PLE . ENCRYP_TRI PLE " 
call omget using 

{ "DbGroups .Group [ROOT] . Accounts . Account [ "reallPsecKey " ] .Def aultEncryption3DES MD 
5" } 



"\nBayP_TunnelsIP.ENCRYP_ESP56 .ENCRYP_ESP56 " 
call omget using 

{"DbGroups. Group [ROOT] .Accounts .Account ["reallPsecKey" ] . Default Encrypt ionDES_MD5 
" } 

"\nBayP_TunnelsIP.ENCRYP_ESP4 0 . ENCRYP_ESP4 0 " 
call omget using 

{ "DbGroups . Group [ROOT] .Accounts .Account ["reallPsecKey" ] . Def aultEncryptionDES_40 " 
} 

» \ nBayP_Tunnels IP . ENCRYP_AHSHA . ENCRYP_AHSHA " 
call omget using 

{ "DbGroups .Group [ROOT] . Accounts . Account ["reallPsecKey"] .Def au It Encrypt ionHMAC_SH 
A" } 

" \nBayP_TunnelsIP . ENCRYP_AHMD5 . ENCRYP_AHMD5 " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] ,DefaultEncryptionHMAC_MD 
5" } 

" \ nBayP_Tunne 1 S . LB_ENABLED . LB_ENABLED " 

call omget using { "Loadbalance .NodelEnabled" } 

"\nBayP_Tunnels . LB_HOST . LB_HOST " 

call omget using { "Loadbalance . Node 1" } 

» \nBayP_Tunnels . FAIL0VER1JENABLED . FAIL0VER1_ENABLED " 

call omget using { "Fai lover . Node lenab led" } 

"\nBayP_Tunnels . FAIL0VER1_IPADDR. FAIL0VER1_IPADDR " 

call omget using { "Failover .Nodel" } 

" \nBayP_Tunnels . FAIL0VER2_ENABLED . FAIL0VER2_ENABLED " 
call omget using { "Failover . Node 2 enabled" } 
" \nBayP_Tunnels . FAIL0VER2_IPADDR . FAIL0VER2_IPADDR " 
call omget using { "Failover .Node2 " ) 

" \nBayP_Tunnels . FAIL0VER3_ENABLED . FAIL0VER3_ENABLED " 

call omget using { "Failover . Node3 enabled" } 

" \nBayP_Tunnels . FAIL0VER3_IPADDR . FAI LOVER 3 _I PADDR " 

call omget using { "Failover .Node3 " } 

"\nback" 



